(display "\n========================================\n")
(define test1 (list 'a 'b 'c))          ; (a b c)
(define test2 (list (list 'george)))    ; ((george))
(define test3 (cdr '((x1 x2) (y1 y2)))) ; ((y1 y2))
(define test4 (pair? (car '(a short list))))    ;#f
(define test5 (memq 'red '((red shoes) (blue socks))))  ;#f
(define test6 (memq 'red '(red shoes blue socks)))      ; (red shoes blue socks)

(display test6)

(display "\n========================================\n")